#!/usr/bin/env perl -Iblib/arch
use DEF;
package DEF;
print "DEF loaded OK!\n";
sub netf{
   my ($t,$net,$ud)=@_;
   if($t==$defrNetCbkType){
      print "This is a defrNetCbkType ";
   }
   print "Net=",$net->name(),"\n";
   return 0;
}

defrSetNetCbk(\&netf);
defrRead("complete.5.2.def");
